home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_25_(10-1984).d64
/
color chart_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
586b
|
14 lines
40 FOR I=49152 TO 49188: READ A: POKE I,A: NEXT:POKE 53280,11
50 PRINT CHR$(147):FOR I=1024 TO I+1000: POKE I,160: POKE I+54272,11:NEXTI
60 FOR I=0 TO 15: FOR J=0 TO 15
70 P=1196+(40*I)+J: POKE P,J+1: POKE P+54272,J: NEXT J,I
80 PRINT TAB(15)CHR$(5)"COLOR CHART":FOR I=1 TO 19:PRINT:NEXT
85 PRINT"THIS CHART SHOWS ALL COMBINATIONS OF "
86 PRINT "FOREGROUND AND BACKGROUND COLORS. "
87 PRINT "FOREGROUND INCREASES FROM LEFT TO RIGHT"
88 PRINT "BACKGROUND INCREASES FROM TOP TO BOTTOM";
90 SYS 12*4096
100 DATA 169,90,133,251,169,0,141,33,208,162,15,120
105 DATA 173,17,208,48,251,173,18,208
110 DATA 197,251,208,249,238,33,208,24,105,8,133,251,202,16,233,48,219